home *** CD-ROM | disk | FTP | other *** search
/ Network CD 2 / Network CD - Volume 2.iso / programs / internet / terminal / vltj5867.lha / VLT / rexx / DoLens.vlt < prev    next >
Encoding:
Text File  |  1994-03-27  |  497 b   |  20 lines
  1. /** dolens.vlt
  2. *
  3. *   Opens the WLens tool on VLT's screen. Requires WLens to be in tools:
  4. *
  5. **/
  6. if show("l", "rexxarplib.library") = 0 then do
  7.    check = addlib('rexxsupport.library', 0, -30, 0)
  8.    check = addlib('rexxarplib.library',  0, -30, 0)
  9. end
  10.  
  11. /*
  12. *   The following sequence determines both VLT's screen and port name
  13. */
  14. vltport = address()
  15. cols = ScreenCols(vltport)
  16. if cols == -1 then vltscreen = ""
  17. else               vltscreen = vltport
  18.  
  19. address command "tools:WLens 150 100 "vltscreen
  20.